Public Class frm_ConfiguracionReportes

    Private Sub frm_ConfiguracionReportes_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim dtt_ListaReportes As DataTable
        
        dtt_ListaReportes = TraerNombresReportes()
        cmb_Reportes.DataSource = dtt_ListaReportes
        cmb_Reportes.ValueMember = dtt_ListaReportes.Columns(0).ColumnName '  "COD_REPORTE"
        cmb_Reportes.DisplayMember = dtt_ListaReportes.Columns(1).ColumnName ' "NOM_REPORTE"

        cmb_Reportes.SelectedIndex = 0

    End Sub

    Private Sub cmb_Reportes_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmb_Reportes.SelectedIndexChanged
        Dim str_CodReporte As String
        Dim dtt_Etiquetas As DataTable

        If Not TypeOf cmb_Reportes.SelectedValue Is DataRowView Then

            ' Referenciamos el objeto DataRowView correspondiente
            ' al elemento seleccionado en el control ComboBox.
            '
            Dim row As DataRowView = DirectCast(cmb_Reportes.SelectedItem, DataRowView)
            str_CodReporte = row.Item("COD_REPORTE").ToString

        End If

        If str_CodReporte = Nothing Then
            str_CodReporte = "CTIN"
        End If

        dtt_Etiquetas = TraerEtiquetasReporte(str_CodReporte)

        txt_CAMPO1.Text = dtt_Etiquetas.Rows(0)("CAMPO1").ToString
        txt_CAMPO2.Text = dtt_Etiquetas.Rows(0)("CAMPO2").ToString
        txt_CAMPO3.Text = dtt_Etiquetas.Rows(0)("CAMPO3").ToString
        txt_CAMPO4.Text = dtt_Etiquetas.Rows(0)("CAMPO4").ToString
        txt_CAMPO5.Text = dtt_Etiquetas.Rows(0)("CAMPO5").ToString
        txt_CAMPO6.Text = dtt_Etiquetas.Rows(0)("CAMPO6").ToString
        txt_CAMPO7.Text = dtt_Etiquetas.Rows(0)("CAMPO7").ToString
        txt_CAMPO8.Text = dtt_Etiquetas.Rows(0)("CAMPO8").ToString
        txt_CAMPO9.Text = dtt_Etiquetas.Rows(0)("CAMPO9").ToString
        txt_CAMPO10.Text = dtt_Etiquetas.Rows(0)("CAMPO10").ToString
        txt_CAMPO11.Text = dtt_Etiquetas.Rows(0)("CAMPO11").ToString
        txt_CAMPO12.Text = dtt_Etiquetas.Rows(0)("CAMPO12").ToString

        If str_CodReporte = "CTIN" Then
            txt_CAMPO1.Enabled = True
            txt_CAMPO2.Enabled = True
            txt_CAMPO3.Enabled = True
            txt_CAMPO4.Enabled = True
            txt_CAMPO5.Enabled = True
            txt_CAMPO6.Enabled = True
            txt_CAMPO7.Enabled = True
            txt_CAMPO8.Enabled = True
            txt_CAMPO9.Enabled = True

            txt_CAMPO1.BackColor = Color.LightBlue
            txt_CAMPO2.BackColor = Color.LightBlue
            txt_CAMPO3.BackColor = Color.LightBlue
            txt_CAMPO4.BackColor = Color.LightBlue
            txt_CAMPO5.BackColor = Color.LightBlue
            txt_CAMPO6.BackColor = Color.LightBlue
            txt_CAMPO7.BackColor = Color.LightBlue
            txt_CAMPO8.BackColor = Color.LightBlue
            txt_CAMPO9.BackColor = Color.LightBlue

            txt_CAMPO10.Enabled = False
            txt_CAMPO11.Enabled = False
            txt_CAMPO12.Enabled = False

            txt_CAMPO10.BackColor = Color.Gray
            txt_CAMPO11.BackColor = Color.Gray
            txt_CAMPO12.BackColor = Color.Gray
        End If
        If str_CodReporte = "CTCA" Then
            txt_CAMPO1.Enabled = True
            txt_CAMPO2.Enabled = True
            txt_CAMPO3.Enabled = True
            txt_CAMPO4.Enabled = True
            txt_CAMPO5.Enabled = True
            txt_CAMPO6.Enabled = True
            txt_CAMPO7.Enabled = True
            txt_CAMPO8.Enabled = True

            txt_CAMPO1.BackColor = Color.LightBlue
            txt_CAMPO2.BackColor = Color.LightBlue
            txt_CAMPO3.BackColor = Color.LightBlue
            txt_CAMPO4.BackColor = Color.LightBlue
            txt_CAMPO5.BackColor = Color.LightBlue
            txt_CAMPO6.BackColor = Color.LightBlue
            txt_CAMPO7.BackColor = Color.LightBlue
            txt_CAMPO8.BackColor = Color.LightBlue

            txt_CAMPO9.Enabled = False
            txt_CAMPO10.Enabled = False
            txt_CAMPO11.Enabled = False
            txt_CAMPO12.Enabled = False

            txt_CAMPO9.BackColor = Color.Gray
            txt_CAMPO10.BackColor = Color.Gray
            txt_CAMPO11.BackColor = Color.Gray
            txt_CAMPO12.BackColor = Color.Gray

        End If
        If str_CodReporte = "TCESE" Then
            txt_CAMPO1.Enabled = True
            txt_CAMPO2.Enabled = True
            txt_CAMPO3.Enabled = True
            txt_CAMPO4.Enabled = True
            txt_CAMPO5.Enabled = True
            txt_CAMPO6.Enabled = True
            txt_CAMPO7.Enabled = True

            txt_CAMPO1.BackColor = Color.LightBlue
            txt_CAMPO2.BackColor = Color.LightBlue
            txt_CAMPO3.BackColor = Color.LightBlue
            txt_CAMPO4.BackColor = Color.LightBlue
            txt_CAMPO5.BackColor = Color.LightBlue
            txt_CAMPO6.BackColor = Color.LightBlue
            txt_CAMPO7.BackColor = Color.LightBlue
            
            txt_CAMPO8.Enabled = False
            txt_CAMPO9.Enabled = False
            txt_CAMPO10.Enabled = False
            txt_CAMPO11.Enabled = False
            txt_CAMPO12.Enabled = False

            txt_CAMPO8.BackColor = Color.Gray
            txt_CAMPO9.BackColor = Color.Gray
            txt_CAMPO10.BackColor = Color.Gray
            txt_CAMPO11.BackColor = Color.Gray
            txt_CAMPO12.BackColor = Color.Gray
        End If

        If str_CodReporte = "PSEG" Then
            txt_CAMPO1.Enabled = True
            txt_CAMPO2.Enabled = True
            txt_CAMPO3.Enabled = True
            txt_CAMPO4.Enabled = True
            txt_CAMPO5.Enabled = True
            txt_CAMPO6.Enabled = True
            txt_CAMPO7.Enabled = True
            txt_CAMPO8.Enabled = True
            txt_CAMPO9.Enabled = True
            txt_CAMPO10.Enabled = True
            txt_CAMPO11.Enabled = True
            txt_CAMPO12.Enabled = True

            txt_CAMPO1.BackColor = Color.LightBlue
            txt_CAMPO2.BackColor = Color.LightBlue
            txt_CAMPO3.BackColor = Color.LightBlue
            txt_CAMPO4.BackColor = Color.LightBlue
            txt_CAMPO5.BackColor = Color.LightBlue
            txt_CAMPO6.BackColor = Color.LightBlue
            txt_CAMPO7.BackColor = Color.LightBlue
            txt_CAMPO8.BackColor = Color.LightBlue
            txt_CAMPO9.BackColor = Color.LightBlue
            txt_CAMPO10.BackColor = Color.LightBlue
            txt_CAMPO11.BackColor = Color.LightBlue
            txt_CAMPO12.BackColor = Color.LightBlue

        End If

        If str_CodReporte = "CTRAB" Then
            txt_CAMPO1.Enabled = True
            txt_CAMPO2.Enabled = True
            txt_CAMPO3.Enabled = True
            txt_CAMPO4.Enabled = True
            txt_CAMPO5.Enabled = True
            txt_CAMPO6.Enabled = True
            txt_CAMPO7.Enabled = True
            txt_CAMPO8.Enabled = True
            txt_CAMPO9.Enabled = True

            txt_CAMPO1.BackColor = Color.LightBlue
            txt_CAMPO2.BackColor = Color.LightBlue
            txt_CAMPO3.BackColor = Color.LightBlue
            txt_CAMPO4.BackColor = Color.LightBlue
            txt_CAMPO5.BackColor = Color.LightBlue
            txt_CAMPO6.BackColor = Color.LightBlue
            txt_CAMPO7.BackColor = Color.LightBlue
            txt_CAMPO8.BackColor = Color.LightBlue
            txt_CAMPO9.BackColor = Color.LightBlue

            txt_CAMPO10.Enabled = False
            txt_CAMPO11.Enabled = False
            txt_CAMPO12.Enabled = False

            txt_CAMPO10.BackColor = Color.Gray
            txt_CAMPO11.BackColor = Color.Gray
            txt_CAMPO12.BackColor = Color.Gray

        End If
        If str_CodReporte = "CAUD" Then
            txt_CAMPO1.Enabled = True
            txt_CAMPO2.Enabled = True
            txt_CAMPO3.Enabled = True
            txt_CAMPO4.Enabled = True
            txt_CAMPO5.Enabled = True
            txt_CAMPO6.Enabled = True
            txt_CAMPO7.Enabled = True
            txt_CAMPO8.Enabled = True

            txt_CAMPO1.BackColor = Color.LightBlue
            txt_CAMPO2.BackColor = Color.LightBlue
            txt_CAMPO3.BackColor = Color.LightBlue
            txt_CAMPO4.BackColor = Color.LightBlue
            txt_CAMPO5.BackColor = Color.LightBlue
            txt_CAMPO6.BackColor = Color.LightBlue
            txt_CAMPO7.BackColor = Color.LightBlue
            txt_CAMPO8.BackColor = Color.LightBlue

            txt_CAMPO9.Enabled = False
            txt_CAMPO10.Enabled = False
            txt_CAMPO11.Enabled = False
            txt_CAMPO12.Enabled = False

            txt_CAMPO9.BackColor = Color.Gray
            txt_CAMPO10.BackColor = Color.Gray
            txt_CAMPO11.BackColor = Color.Gray
            txt_CAMPO12.BackColor = Color.Gray
        End If


    End Sub

    Private Sub btn_MODIFICAR_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_MODIFICAR.Click

        Dim str_CODREPORTE As String
        Dim str_CAMPO1 As String
        Dim str_CAMPO2 As String
        Dim str_CAMPO3 As String
        Dim str_CAMPO4 As String
        Dim str_CAMPO5 As String
        Dim str_CAMPO6 As String
        Dim str_CAMPO7 As String
        Dim str_CAMPO8 As String
        Dim str_CAMPO9 As String
        Dim str_CAMPO10 As String
        Dim str_CAMPO11 As String
        Dim str_CAMPO12 As String
        Dim int_Resultado As Integer

        str_CODREPORTE = cmb_Reportes.SelectedValue.ToString
        str_CAMPO1 = txt_CAMPO1.Text
        str_CAMPO2 = txt_CAMPO2.Text
        str_CAMPO3 = txt_CAMPO3.Text
        str_CAMPO4 = txt_CAMPO4.Text
        str_CAMPO5 = txt_CAMPO5.Text
        str_CAMPO6 = txt_CAMPO6.Text
        str_CAMPO7 = txt_CAMPO7.Text
        str_CAMPO8 = txt_CAMPO8.Text
        str_CAMPO9 = txt_CAMPO9.Text
        str_CAMPO10 = txt_CAMPO10.Text
        str_CAMPO11 = txt_CAMPO11.Text
        str_CAMPO12 = txt_CAMPO12.Text


        ActualizarEtiquetasReportes( _
                                    str_CODREPORTE, str_CAMPO1, str_CAMPO2, str_CAMPO3, _
                                    str_CAMPO4, str_CAMPO5, str_CAMPO6, str_CAMPO7, _
                                    str_CAMPO8, str_CAMPO9, str_CAMPO10, str_CAMPO11, str_CAMPO12, int_Resultado)
        If int_Resultado = 1 Then
            MsgBox("Las etiquetas se crearon correctamente ", MsgBoxStyle.OkOnly, "CONFIRMACION")
        Else
            MsgBox("Hubo un problema, comuniquese con " & Chr(13) & "el administrador del sistema", MsgBoxStyle.OkOnly, "ERROR")
        End If

    End Sub

   
    Private Sub btn_Cerrar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Cerrar.Click
        Me.Hide()
        frmReportesBN.Show()

    End Sub
End Class